home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / ab20 / datacomm / vlt_5045.lzh / rexx / DialBix2.scp < prev    next >
Encoding:
Text File  |  1990-08-02  |  570 b   |  23 lines
  1. #   DialBIX2.scp
  2. #
  3. #   And another way to log on to BIX, using traps.
  4. #
  5. screeng off; lines 40; parity none; echo on
  6.  
  7. trap add    (~)      (send "a")
  8. trap add    (Name? ) (send "-------*R"; emit "-------*R")
  9. trap add    (in: )   (send "*X08bix*R"; emit "*X08bix*R")
  10.  
  11. #
  12. #   Some unnecessary foolishness to demo the schedule command
  13. #
  14. sched (delay 15; mess "Are we here yet?")
  15. sched (delay 60; mess "We must be here now...")
  16.  
  17. send "ATDT-------*R"     # Phone number goes here
  18.  
  19. #
  20. #   Wait for Password or else the above traps would expire.
  21. #
  22. wait (word: ); BEEP; exit quiet
  23.